home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2004 December / maximum-cd-2004-12.iso / Software / Utilities / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Network Login User.xpl < prev    next >
Encoding:
XSetup plugin  |  2003-11-19  |  1.2 KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows 9x/ME\61) Inside Login Window"
  5. "UIPATH 2"="Startup/Shutdown\Startup\Windows NT/2K/XP\31) Inside Login Window"
  6. "NAME"="Login Window: Next Username"
  7. "VERSION"="2.05"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Username"
  10. "DESCRIPTION 1"="This plug-in can be used to change the username that will be displayed in the next login window."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"=" "
  15. "COMMENT 2"="Thanks to CptSiskoX for his help!"
  16.  
  17.  
  18. sV_W9x="HKLM\Network\Logon\Username"
  19. sV_W2K="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\DefaultUserName"
  20.  
  21. sV_Path=""
  22.  
  23. Sub Plugin_Initialize 
  24.     If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  25.        'W9x
  26.        sV_Path=sV_W9x
  27.     else
  28.        'NT/2K 
  29.        sV_Path=sV_W2K
  30.     end if 
  31.  
  32.     s=RegReadValue(sV_Path)
  33.     SetUIElement 1,s
  34. End Sub
  35.  
  36. Sub Plugin_CheckData(ElementIndex)
  37. End Sub
  38.  
  39. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  s=GetUIElement(1)
  41.  Call RegWriteValue(sV_Path,s,1)
  42. End Sub
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub
  46.